home *** CD-ROM | disk | FTP | other *** search
/ Network PC / Network PC.iso / amiga utilities / graphics / conversion / metaview / metaview.install < prev    next >
Encoding:
Text File  |  1997-11-21  |  8.6 KB  |  319 lines
  1. ;$VER: MetaView Install 2.2 (3.5.1997)
  2. ;Copyright ©1996/97 Henk Jonas
  3.  
  4. (set @app-name "MetaView V2.2")
  5. (set @sourcedir (pathonly @icon))
  6. (set #wbversion (getversion "libs:version.library"))
  7. (set #wbversion (/ #wbversion 65536))
  8.  
  9. (if (< #wbversion 37)
  10.   (abort "\n\nAmigaDOS 2.0 or better is needed this software.")
  11. )
  12.  
  13. (message "Henk Jonas\n"
  14.          "present:\n\n"
  15.          "MetaView\n\n"
  16.          "This programm show and convert gfx-metafiles,\n"
  17.          "use the amigametaformat.library\n"
  18.          "and is Shareware.")
  19. (set #user-level @user-level)
  20. (user 2)
  21. (set @parentdir
  22.   (askdir
  23.     (prompt "Please choice the destination for MetaView.\n"
  24.             "I will create a drawer with name MetaView there,\n"
  25.             "if he not exist.")
  26.     (help @askdir-help)
  27.     (default "RAM:")
  28.     (disk)
  29.   )
  30. )
  31. (user #user-level)
  32.  
  33. (set @default-dest (tackon @parentdir "MetaView"))
  34.  
  35. (makedir @default-dest
  36.   (prompt "I create the drawer 'MetaView'.")
  37.   (help @makedir-help)
  38.   (infos)
  39. )
  40.  
  41. (complete 5)
  42.  
  43. (copylib 
  44.   (prompt "Now i install the 'amigametaformat.library'.")
  45.   (source (tackon @sourcedir "libs/amigametaformat.library"))
  46.   (dest  "libs:")
  47.   (optional "nofail" "force" "askuser")
  48.   (help "This library are needed for this programm.\n"
  49.         "It is very importent to install this!")
  50. )
  51.  
  52. (complete 10)
  53.  
  54. (set #driver
  55.   (askoptions
  56.     (prompt "Now i install the different Outputdrivers for the 'amigametaformat.library'.")
  57.     (choices "Strip" "AMF" "CGM" "EPS" "GEM" "WordWorth" "DR2D" "HPGL" "AI")
  58.     (help "the options:\n"
  59.           "* Strip     : the driver for all renderings, like screen, ILBM, printer etc.\n"
  60.           "* AMF       : are for output as Amiga Metafile Format.\n"
  61.           "* CGM       : are for output as Computer Graphics Metafile.\n"
  62.           "* EPS       : are for output as Encapsulated PostScript.\n"
  63.           "* GEM       : are for output as GEM Metafile.\n"
  64.           "* WordWorth : create ARexx scripts, for use in WordWorth.\n"
  65.           "* DR2D      : are for output as DR2D (for PageStream, DrawStudio...)\n"
  66.           "* HPGL      : are for output as HPGL (for Plotters)\n"
  67.           "* AI        : are for output as AI\n")
  68.   )
  69. )
  70.  
  71. (complete 15)
  72.  
  73. (makedir "libs:AMF")
  74.  
  75. (if (IN #driver 0)
  76.   (copylib 
  77.     (prompt "Now i install the stripdriver for 'amigametaformat.library'.")
  78.     (source (tackon @sourcedir "libs/AMF/amigametaformat-strip.driver"))
  79.     (dest  "libs:AMF/")
  80.     (optional "nofail" "force" "askuser")
  81.     (help "strip for all renderings on screen, printer and ILBM-output\n")
  82.   )
  83. )
  84.  
  85. (complete 20)
  86.  
  87. (if (IN #driver 1)
  88.   (copylib 
  89.     (prompt "Now i install the filedriver for 'amigametaformat.library'.")
  90.     (source (tackon @sourcedir "libs/AMF/amigametaformat-file.driver"))
  91.     (dest  "libs:AMF/")
  92.     (optional "nofail" "force" "askuser")
  93.     (help "file for saving as Amiga Meta Format Metafile\n")
  94.   )
  95. )
  96.  
  97. (complete 25)
  98.  
  99. (if (IN #driver 2)
  100.   (copylib 
  101.     (prompt "Now i install the CGMdriver for 'amigametaformat.library'.")
  102.     (source (tackon @sourcedir "libs/AMF/amigametaformat-cgm.driver"))
  103.     (dest  "libs:AMF/")
  104.     (optional "nofail" "force" "askuser")
  105.     (help "CGM for saving as Computer Graphics Metafile\n")
  106.   )
  107. )
  108.  
  109. (complete 30)
  110.  
  111. (if (IN #driver 3)
  112.   (copylib 
  113.     (prompt "Now i install the EPSdriver for 'amigametaformat.library'.")
  114.     (source (tackon @sourcedir "libs/AMF/amigametaformat-eps.driver"))
  115.     (dest  "libs:AMF/")
  116.     (optional "nofail" "force" "askuser")
  117.     (help "EPS for saving as Encapsulated PostScript\n")
  118.   )
  119. )
  120.  
  121. (complete 35)
  122.  
  123. (if (IN #driver 4)
  124.   (copylib 
  125.     (prompt "Now i install the GEMdriver for 'amigametaformat.library'.")
  126.     (source (tackon @sourcedir "libs/AMF/amigametaformat-gem.driver"))
  127.     (dest  "libs:AMF/")
  128.     (optional "nofail" "force" "askuser")
  129.     (help "GEM for saving as GEM Metafile\n")
  130.   )
  131. )
  132.  
  133. (complete 40)
  134.  
  135. (if (IN #driver 5)
  136.   (copylib 
  137.     (prompt "Now i install the WordWorth-ARexx-driver for 'amigametaformat.library'.")
  138.     (source (tackon @sourcedir "libs/AMF/amigametaformat-ww.driver"))
  139.     (dest  "libs:AMF/")
  140.     (optional "nofail" "force" "askuser")
  141.     (help "WordWorth-ARexx-driver for creating WordWorth-ARexx-script\n")
  142.   )
  143. )
  144.  
  145. (complete 45)
  146.  
  147. (if (IN #driver 6)
  148.   (copylib 
  149.     (prompt "Now i install the DR2D-driver for 'amigametaformat.library'.")
  150.     (source (tackon @sourcedir "libs/AMF/amigametaformat-dr2d.driver"))
  151.     (dest  "libs:AMF/")
  152.     (optional "nofail" "force" "askuser")
  153.     (help "DR2D-driver for creating DR2D-Output\n")
  154.   )
  155. )
  156.  
  157. (complete 50)
  158.  
  159. (if (IN #driver 7)
  160.   (copylib 
  161.     (prompt "Now i install the HPGL-driver for 'amigametaformat.library'.")
  162.     (source (tackon @sourcedir "libs/AMF/amigametaformat-hpgl.driver"))
  163.     (dest  "libs:AMF/")
  164.     (optional "nofail" "force" "askuser")
  165.     (help "HPGL-driver for creating HPGL-Output\n")
  166.   )
  167. )
  168.  
  169. (complete 55)
  170.  
  171. (if (IN #driver 8)
  172.   (copylib 
  173.     (prompt "Now i install the AI-driver for 'amigametaformat.library'.")
  174.     (source (tackon @sourcedir "libs/AMF/amigametaformat-ai.driver"))
  175.     (dest  "libs:AMF/")
  176.     (optional "nofail" "force" "askuser")
  177.     (help "AI-driver for creating AI-Output\n")
  178.   )
  179. )
  180.  
  181. (complete 60)
  182.  
  183. (copyfiles
  184.   (prompt "copy programm")
  185.   (source (tackon @sourcedir "MetaView"))
  186.   (dest @default-dest)
  187.   (infos)
  188.   (help "Now, i want copy the programm.")
  189. )
  190.  
  191. (complete 70)
  192.  
  193. (copyfiles
  194.   (prompt "copy MetaView.doc")
  195.   (source (tackon @sourcedir "MetaView.doc"))
  196.   (dest @default-dest)
  197.   (infos)
  198.   (help "Now, i want copy the MetaView.doc.")
  199. )
  200.  
  201. (copyfiles
  202.   (prompt "copy MetaView.guide")
  203.   (source (tackon @sourcedir "MetaView.guide"))
  204.   (dest @default-dest)
  205.   (infos)
  206.   (help "Now, i want copy the MetaView.guide.")
  207. )
  208.  
  209. (copyfiles
  210.   (prompt "copy amigametaformat.readme")
  211.   (source (tackon @sourcedir "libs/amigametaformat.readme"))
  212.   (dest @default-dest)
  213.   (infos)
  214.   (help "Now, i want copy the amigametaformat.readme.")
  215. )
  216.  
  217. (complete 80)
  218.  
  219. (copyfiles
  220.   (prompt "copy ARexx-Examples")
  221.   (source (tackon @sourcedir "ARexx-Examples"))
  222.   (dest (tackon @default-dest "ARexx-Examples"))
  223.   (files)
  224.   (all)
  225.   (infos)
  226.   (help "Now, i want copy some ARexx-Examples.")
  227. )
  228.  
  229. (copyfiles
  230.   (prompt "copy Examples")
  231.   (source (tackon @sourcedir "Examples"))
  232.   (dest (tackon @default-dest "Examples"))
  233.   (files)
  234.   (all)
  235.   (infos)
  236.   (help "Now, i want copy some Examples.")
  237. )
  238.  
  239. (complete 85)
  240.  
  241. (set #osvernum (getversion))
  242. (set #osver (/ #osvernum 65536))
  243. (set #osrev (- #osvernum (* #osver 65536) ) )
  244. (set #oldpatchvernum (getversion "c:SetPatch"))
  245. (set #newpatchvernum (getversion (tackon @sourcedir "SetPatch43_5/SetPatch")))
  246.  
  247. (if (AND (> #osver 39) (< #oldpatchvernum #newpatchvernum))
  248.   (if (= 1 (askbool
  249.               (prompt "I want copy a new SetPatch (43.5) to your 'c:' directory.\n"
  250.                       "This Software are published from Amiga Technologie and\n"
  251.                       "fix also a bug on 'mathieesingbas.library' in Kick 3.1.\n"
  252.                       "The old 'c:SetPatch' will renamed to 'c:SetPatch.old'.")
  253.               (choices "Copy" "Skip")
  254.               (help "Press 'Copy' for install the new SetPatch and 'Skip' for not install.\n"
  255.                     "I think you should install this Patch.\n"
  256.                     "But if you get a GURU on MetaView-startup you must!")
  257.               (default 1)
  258.            )
  259.       )
  260.       (rename "c:SetPatch" "c:SetPatch.old")
  261.       (copylib
  262.         (prompt "copy new SetPatch")
  263.         (source (tackon @sourcedir "SetPatch43_5/SetPatch"))
  264.         (dest  "c:")
  265.         (optional "nofail" "force" "askuser")
  266.         (help @copylib-help)
  267.       )
  268.   )
  269. )
  270.  
  271. (if (> osver 38)
  272.   (copylib
  273.      (prompt "copy tabs.gadget")
  274.      (source (tackon @sourcedir "libs/gadgets/tabs.gadget"))
  275.      (dest  "libs:gadgets/")
  276.      (optional "nofail" "force" "askuser")
  277.      (help @copylib-help)
  278.   )
  279. )
  280.  
  281. (complete 90)
  282.  
  283. (textfile
  284.   (prompt "Create ENVARC: variable with path of MetaView")
  285.   (dest "envarc:MetaView.path")
  286.   (append (tackon @default-dest "Metaview"))
  287.   (help "The ARexxScript and the MetaView.datatype will use the variable for locate the executable.")
  288. )
  289.  
  290. (textfile
  291.   (prompt "Create ENV: variable with path of MetaView")
  292.   (dest "env:MetaView.path")
  293.   (append (tackon @default-dest "Metaview"))
  294.   (help "The ARexxScript and the Metaview.datatype will use the variable for locate the executable.")
  295. )
  296.  
  297. (complete 95)
  298.  
  299. (user 2)
  300. (if (= 1 (exists (tackon @sourcedir "keyfile.metaview")))
  301.     (copyfiles
  302.       (prompt "copy keyfile")
  303.       (source (tackon @sourcedir "keyfile.metaview"))
  304.       (dest @default-dest)
  305.       (infos)
  306.       (help "Now i copy the keyfile.")
  307.     )
  308. )
  309. (if (= 0 (exists (tackon @default-dest "keyfile.metaview")))
  310.     (message
  311.       ("Don`t forget to register!")
  312.       (help "Look at MetaView.readme, MetaView.doc\n"
  313.             "or MetaView.guide for register")
  314.     )
  315. )
  316.  
  317. (complete 100)
  318.  
  319.